home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / THIN C 2.0 / Projects / iterate / iterate.c next >
Encoding:
C/C++ Source or Header  |  1991-04-24  |  203 b   |  17 lines  |  [TEXT/THIN]
  1. #include <stdio.h>
  2.  
  3.  
  4. /********************************  main  ***/
  5.  
  6. main()
  7. {
  8.     int    i, num, fac;
  9.  
  10.     num = 5;
  11.     fac = 1;
  12.     
  13.     for ( i=1; i<=num; i++ )
  14.         fac *= i;
  15.     
  16.     printf( "%d factorial is %d.", num, fac );
  17. }